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vOo-000" "SISEP=1986 08:10:32 EATAACE.SRETCALDAYNO.maR;1 “29° fy 


: Author: Deborah H. Gillespie, Creation Date: 23-JUN-1977 
: Modified By: 


v002 REFORMAT Ken Henderson 30-JUL-1980 8:00 
the code was reformatted 


01 - 


Include Files: 


$8 1 TITLE FOL DATHO | 
0 § -IDENT ‘v04-000' 
00 ; | 
000 5 ITIIIIIIIIIIIILITITILITITTLILITLLLTTTiTiTi Titi tiie iii iTiTiTTTTTTt tite 
;* & | 
000 ; :* COPYRIGHT (c) 1978, 1980, 1982, 1984 B . | 
4 8 :* DIGITAL EQUIPMENT EORPORATION, MAYNARD. MASSACHUSETTS. * 
+4 16 :* ALL RIGHTS RESERVED. * 
; * 
000 11 ;* THIS SOFTWARE 43 FURNISHED UNDER A LICENSE AND MAY BE USED AND ogg * 
B88 1 3* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
0 13 ;* iNCLUSION OF THe ABOVE Ss githid NOTICE. THIS SOFT ARE OR ANY OTHER * 
0000 14 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0000 15 ;* THER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
44 16 3* TRANSFERRED. * 
3% 8 
4 18 3* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
000 19 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ® 
944 ’ :* CORPORATION. * 
e ® 
0000 ¢ :* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
0000 ;* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
000035 is : 
0000 6 ITIIIITITITIITI III TITITITITILILI LITT iT TiTii iii Tritt iiiiit tiie 
0000 7; 
0000 8 
0000 $0; 
900 1: Facility: magnetic tape acp 
0000 35 ; Abstract: 
44 <0 3 this module calculates the day number since the start date 
0000 36 : Environment: 
0000 Sf 3 starlet operating system, including privileged system services and 
0000 $3 ; internal exec routines. 
0000 9 ;-- 
0000 40 
él 
23 
ah 
45 
46 | 
47 | 
48 
49 
50 
: 
| 
3 | 


SoOoOooOoooOooooooooo 
SOOoQooooooooooooooo 


COoooooooooooooooeo 


CALDAYNO 
v04-000 


00000004 
00000008 


000 
000 
000 
1000 
000 
000 
000 
4 
00 

000 


NNAAAAAOAAOOOOUM 
—OOONAUS WMO Oo 


Macros: 


: Equated Symbols: 


D1 
D2 


; Own Storage: 


4 
8 


Ig- 


SEP 
SEP 


1984 
1984 


03:90:82 UMTAACE. SRCICALDAYNO.MAR; 1 


; first date address 
; second date address 


v0o-000" "S$EP=198¢ 09:10:32 EMTAACE.SACICALDAYNO.MaR:1 "29° (3) 


<o- 


| 
73 | : 
74 344 3 
£3 : CALDAYNO | ; 
3 r : this routine calculates the binary day number since start date | : 
0 8 ; Calling sequence: | ; 
4 , 3 caldayno(argl,arg2) : 
00 § ; Input Parameters: | 3 
00 3 argl - address of first 64 bit date . 
4 : ; arg2 - address of second 64 bit date | : 
00 : Implicit Inputs: 3 
$00 “ : none ; 
444 8; 3 
00 89 ; Output Parameters: 3 
0000 90 ; argi - address of first date which receives binary day number : 
44 4 3 arg2 - address of second date which receives binary day number : 
0000 38 : Implicit Outputs: F 
0000 94 ; none F 
0000 95 ; 3 
0000 96 ; Routine Value: 3 
0000 97 ; PF 
0000 98 ; 3 
0000 99 ; Side Effects: 3 
0000 100 ; none : 
0000 101 ; PF 
464 19 37° 3 
000 103; 3 
0000 104 ; 
00000000 105 -PSECT SCODES,NOWRT,LONG b 
4 198 3 
00 107 F 
0000 108 CALDAYNO:: 3 
00 109 : calculate binary day number 3 
0004 4 110 «WORD “M<R2> 3; save registers : 
50 046 AC 0° 4 111 MOVL DI(AP),RO ; get address of first 64 bit date 3 
07 ~«1 38 11 BSBB ALDAY 3 negate it : 3 
50 OB AC OD 38 11 MOVL D2(AP) ,RO ; get address of second 64 bit date 3 
01 #1 O0OC 114 BSBB CALDAY ; negate it 3 
04 OE 115 RET > return to caller | : 


- — 


G 14 
CALDAYNO 16-SEP-1984 703: AX/VMS Macro v04-00 Page 4. 
v04-000 oe ae tS 95:03:33 ERTAACP. SRETCALDAYNO.MAR: 1 . (5). 
Po Pie 3 
F 18 ++ : 
F 119: CALDAY ; 
: ! 1°: this routine calculates the binary day number : 
8 F 1 : ; salen sequence: : 
$ : ; 2 3 sbb calday ; 
OOF 1 § ; Input Parameters: ; 
OOF 127; r0 - address of64 bit date; ; 
One 1 3 : Implicit Inputs: ; 
OOF 1 : none ; 
Oboe 130 ; ; 
OOF 131 ; Output Parameters: : 
44 : § 3 quadword receivesbinary day number : 
OOF 134 ; Implicit Outputs: ; 
000 135 ; _ none : | : 
QOOOF 1 $ ; 3 
QOOOF 1 3; Routine Value: 3 
OOOF 138; none : 
OOOF 139; 3 
QOOF 140 ; Side Effects: | : 
QOOOF 141; none F 
QOOF 166 3 | 3 
QOOOF 1435 ;-- 3 
QOOF 144 3 
QOOOF 145 CALDAY: ; calculate binary day number for one 64 bit 3 
51 60 7D OQO00F 146 MOVa (RO) ,R1 ; get quadword ; 
0013148 
001 149 ; 864000000000 is the number of tenths of a microsecond in a day ; 
001 150 ; divide by 1024 and then 843750000 3 
bos ae 
51 51 20 OA EF 001 188 EXTZV #10 835 -R1 oR ; divide by 1024 7 
52. 52. 16 OA EF 001 154 EXTZv #10 ae R2,R2 ; 
52. 51 51 ~~ 324A9A70 er B 901¢ 155 EDIV #848750600.R1,R1,R2 | : 
60 1 7d 00 156 MOVQ R1, (RO) 3; store quadword : 
05 0028 £157 RSB 3 return 3 
0029 158 3 
0029 159 END : 
| Py 


Symbol table SSEP=1986 09:10:82 EMTAACP.SREICALDAYND.MaR:1 9° 


AQB_TYPE = 
CALOAY 


Zz 
< 
rf 
—~ 
_ 
wv 
mm 
nnnnnnne 


powwow coceccocccn + 
! Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
- ABS . 00000000 < 0.) 00 ¢ 0.) NOPIC USR CON ABS ~ LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SCODES 00000029 (¢ 41.) 0O1¢ +1.) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC LONG 


Phase Page faults CPU Time Elapsed Time 


Initialization MH 00:00:00.13 00:00:00.39 
Command processing 136 00:00:00.68 00:00:04.49 
Pass 1 85 9 99:22. 28 00:00:02.91 
Symbol table sort 0 00:00:00.00 00:00:00.00 
Pass 2 41 00:00:00.59 00:00:03.20 
Symbol table output 2 88 0:00. 65 ee SL 
Psect synopsis output 2 00:00:00.0 00:00:00.0 

Cross-reference output 0 i 64 8 4 B08 300-88 
Assembler run totals 308 0:00:02.20 00:00:11.0 


The working set Limit was 900 pages. 

2962 bytes (6 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 10 non-local and 0 local symbols. 
2 source Lines were read in Pass 1, producing 11 object records in Pass 2. 
pages of virtual memory were used to define 6 macros. 


+ 
: Macro library statistics ; 


Macro Library name Macros defined 
-$255$DU $B SYS.OBJJLIB.MLB;1 0 

$255$DUA28: (SYSLIBISTARLET.MLB;2 8 
TOTALS (all libraries) 


0 GETS were required to define 0 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:CALDAYNO/OBJ=O0BJ$:CALDAYNO MSRC$:MTADEF 1/UPDATE=(ENHS:MTADEF 1) *MSRC$: CALDAYNO/UPDATE=(ENHS: CALDAYNO) +EXECMLS/LIB 


0253 SH-BT13A- SE | | T CORPORATION 
J0J3 VAX/VMS V4.0 | PROPRIETARY 


